LPP 


wnn MNMMMW 
Mnn MNNMMMWM 
mun nnn nnn 
mw nWn MMn 
nnn nnn MMW 
wnn nnn WMwn 
mwnwn nnn nnn 
mnn nnn MWwn 
MNWNMnw nnn 
MNMMNMn nnn 
uu udu ud 
uuu wud 
tu Us ad wmuus Wud 
Usui tas ts Us 
uuu WwWiusus ad ls 
uuu wus gud a 
wud wuss udu 
udu usu udu 


aou4 


an44 
444 
444 
ai44 
444 
ai 
s444 
ca a ld dd ad od dd od dd J 
a ee ee ee ee 
aaaaaa 
aaaqaaaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aqaaaaaaaaaaaaagaaaaana 
aaaagaaqaaaaaaaaqaaaaaaaa 
LSS Se eee eee ee ee ee Se eS 
ZFETFSFTTTSISITSISSTSITETSISETSTEET=SE 
+3 33 
zee 


EEE 
SEEPEEESEEEEESEESEEEE 
socinichenrtaiane |< ‘nina 

< 


<< HC OO << 
<< OC OK OC OK =< 
<< << 
=< x << 
x< << 
=< x< 
=< x< << 
<< =< x< 
<< OK Oe << OK OK OK OK 
<< OK OC OK << OC OC OK OK 
aa Us Ly 
dud Aas hs 
Us td kd Wud ws a 
Abs tad LAS Wid ud usu 
bd La Wwuus Ud a 
pewrVeaes) Ww tad ud 
wud du hd ad 
wud td a wWiusus 


Soe eee eet eet eeteotreyeereelvelvelvelvelvulververververrs) 
Md ld 


**F ILE**1D**XADRIVER 


Xx XX AAAAAA DDDDDDDD RRRRRRRR IIIII1 VV VV EEEEEEEEEE RRRRRRRR 
XX XX AAAAAA DDDDDDDD RRRRRRRR IIII11 VV VV EEEEEEEEEE RRRRRRRR 
XX XX AA AA 0D DD RR RR Il VV VV EE RR RR 
ax XX AA AA 0D DD RR RR Il VV VV EE RR RR 
XX = XX AA AA DD DD RR RR Il VV VV EE RR RR 
XX XK AA AA 0D DD RR RR Il VV VV EE RR RR 
Xx AA DD DD RRRRRRRR Il VV VV EEEEEEEE RRRRRRRR 
XX AA 0D DD RRRRRRRR Il VV VV EEEEEEEE RRRRRRRR 
XX = XX AAAAAAAAAA DD DD RR RR I] Vu V EE RR RR 
XX =X AAAAAAAAAA DD DDB RR RR I] VV ¥Y €s RR RR 
XX Ke DD DD RR RR Il VV VV EE RR RR cece 
xx XX AA AA ODD DD RR RR Il VW VV EE RR RR eoee 
HH XX AA AA DDDDDDDD RR RR IIII11 VV EEEEEEEEEE RR RR coos 
XX XX AA AA DDDDDDDD RR RR III! VV EEEEEEEEEE RR RR 


MM MM AARAARA RRRRRRRR 
MM MM AAAAAA RRRRRRRR 
MMMM MMMM AA AA RR RR 
MMMM MMMM AA AA RR RR 
MM 66MM OMM OAA AA RR RR 
MM MM MM AA AA RR RR 
MM MM AA AA RRRRRRRR 
MM MM AA AA RRRRRRRR 
MM MM AA RR RR 

MM MM AAAAAAAAAA RR RR 

MM MM AA AA RR RR 
Lala MM AA AA RR RR 
MM MM AA AA RR RR 
MM MM AA AA RR RR 


o 


4 
XADRIVER.MAR; 1 16-SEP-1984 17:04:40.4 Page 1 


- TITLE MADR IYER = VAX/VMS DR11-W DRIVER 
IDENT ‘Vv04-001' 


PARRA ARAARAARAAARAAASALELALLA SALES EAL ELE SESE SESE R EERE R SESS ESE SESE ECE 


COPYRIGHT ‘te 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS to scche IS FURNISHED UNDER A LICENSE AND MAY BE USED AND gl 
ta a sg WITH THE TERMS OF SUCH LICENSE AND WITH THE 


* * 
* ® 
* ® 
* * 
e ® 
:* t 
:* ® 
s* * 
« E N e 
* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
;* TRANSFERRED. bg 
:* * 
;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
;* CORPORATION. * 
st * 
;* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
;* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ® 
:* * 
st * 
:t * 


ARARAARALASALAALAALALELALLLALLALALEL ESE SSE E EERE EERE REE E REESE EERE ESSERE EES EE 


; FACILITY: 
VAX/VMS Executive, 1/0 Drivers 
; ABSTRACT: 
This module contains the DR11-W driver: 
Tables for joading and dispatching 
Controller initialization routine 
FDT routine 
The start 1/0 routine 
The interrupt service routine 
Device specific Cancel 1/0 
Error logging register dump routine 
; ENVIRONMENT: 
Kernal Mode, Non-paged 
; AUTHOR: 


C. A. Sameulson 10-JAN-79 


; MODIFIED BY: 


BeBe Se Ge Se Ge Se Se Se Se Se Se Ge Se Ge Se Se Ge Ge Se Se Se Ge Ge Fe Ge Ge Ge Se Se Se Se Se Se Se Ge Si Be Se Ge Se Se Se Oe Se Se Se Se Se Se Se Ses 
> 
+ 
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v04-001 fiver? Jake VanNoy 66-SEP-1984 
d AVL bit to DEVCHAR. 
v03-006 TMKO001 Todd M. Katz 07-Dec-1983 
Fix a broken branch. 
v03-005 JLV0304 Jake 24-AUG-1983 


Several bug fixes. au’ ore writes to XA_CSR now have 
ATTN set so as to prevent lost interrupts. Attention 
AST List is ~ ge ge at 7. IPL in DEL_ATTNAST. 
Correct status is returned o mode ast tehet 

is reture Lorene 9 EXESE INISHIO, SREQCOM's are always 


done at FIPL. gned division that prevented full "size 
transfers has been fixed. 

v03-004 KDM0059 Kathleen D. Morse 14-Jul-1983 
coeree, amet loops to use hn TIMEDWAIT eecre. 
Add SDEV 

v03-003 KDM0002 hleen D. Morse 28-Jun-1982 


Added SDYNDEF, SDCDEFS and SSSDEF. 
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-SBTTL External and local symbol 


; External symbols 


3; Local 


SACBDEF 


wn 
-_ 
o 
@o 
oo mm 
n mm 
wn" 
Dee Be Be Oe Oe Oe Oe Oe Oe Oe Se Se Se Se Se eee 


SXADEF 
symbols 
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definitions 


; AST control block 

; Channel request block 

; Device types 

; Device data block 

; Device characteristics 

; Driver prolog table 

; Dynamic data structure types 

; EMB offsets 

; Interrupt data block 

; 1/0 function codes 

; Hardware IPL definitions 

; 1/0 request packet 

; Internal processor registers 

; Scheduler priority increments 

; System status codes 

; Unit control block 

; Interrupt vector block ” 
; Define device specific characteristics 


; Argument List (AP) offsets for device-dependent Q10 parameters 


; Other 


XA_DEF_TIMEOUT = 10 
MA_DEF BUFSIZ = 65535 
XALRESET_DELAY = 


3; DR11-W defin 
3; tte NOT 


SDEF 
SDEF 
SDEF 
SOEF 
SDEF 


constants 


<<2+9>/10> ; 


First Q10 parameter 
Second Q10 parameter 
Third Q10 parameter 
Fourth Q10 parameter 
Fifth Q10 parameter 
Sixth Q10 parameter 


; 10 second default device timeout 


Default buffer size 
Delay N microseconds after RESET 
(rounded up to 10 microsec intervals) 


itions that follow the standard UCB fields 


E *** ORDER OF THESE UCB FIELDS IS ASSUMED 


SDEFINI UCB 

- =UCBSL_DPC+4 

UCBS$L_XA_ATTN : 
~BLKL 

UCBSW_XA_CSRTMP 
~BLKW 

UCB$W_XA_BARTMP 


“BLKW 
UCBSW_XA_CSR 


—_-— —_—_- —_ —_A 


* iW 
UCB$W_XA_EIR ; 


Attention AST Listhead 
Temporary storage of CSR image 
Temporary storage of BAR image 


; Saved CSR on interrupt 


Saved EIR on interrupt 


+ 
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-BLKW 1 
SDEF nett 1 , ; Saved IDR on interrupt 
SDEF ae , ; Saved BAR register on interrupt 
SDEF eaten \ ; Saved WCR register on interrupt 
SDEF sates 1% ' ; Saved device status flag 
SDEF ee , ; Data Path Register contents 
SDEF a ' ; Final Map Register contents 
SDEF seareete “1 ’ ; Previous Map Register contents 
SDEF UCBSW_XA_DPRN ; Saved Datapath Register Number 
-BLKW 1 ; And Datapath Parity error flag 


; Bit positions for device-dependent status field in UCB 


SVIELD UCB,0,<- ; UCB device specific bit definitions 
<ATTNAST, .M>,- : ATTN AST requested 
wale cag 3; Unexpected interrupt received 


UCBSK_SIZE=. 
SDEFEND UCB 


; Device register offsets from CSR address 


SDEFINI XA ; ; Start of DR11-W definitions 
SDEF XA_WCR ; Word count 
-BLKW 1 
SDEF XA_BAR ; Buffer address 
-BLKw 7 
SDEF XA_CSR ; Control/status 


; Bit positions for device control/status register 


SEQULST XA$K_,,0,1,<=- 3 Define CSR FNCT bit values 
<FNCTI.2>= 
<FNCT2,4>= 
<FNCT3S,8>- , 
<STATUSA, 2048>- : Define CSR STATUS bit values 


A, 
<STATUSB, 1024>- 
<STATUSC,512>- 

> 

SVIELD KXA_CSR,0,<- ; Control/status register 
; Start device 

; CSR FNCT bits 

; Extended address bits 

; Enable interrupts 

; Device ready for command 
; Starts slave transmit 

; CSR STATUS bits 


A 
= 
. 
. 
v 
* 
4 
Bee Oe Se Oe Oe eee 


SDEF 


SDEF 
SDEF 
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<MAINT, ,M>,- 3; Maintenance bit 
<ATIN, ,M>,= ; Status from other processor 
<NEX, ,M>,= ; Nonexistent memory flag 
‘i <ERROR, ,M>,- ; Error or external interrupt 
XA_EIR ; Error information register 


; Bit positions for error information register 


SVIELD XA_EIR,0,<- ; Error information register 


<REGFLG, ,M>,- ; Flags whether EIR or CSR is accessed 
<SPARE,?.M>.= ; Unused = spare 
<BURST, .M>,- ; Burst mode transfer occured 
<DLT,,M>,- : Time-out for successive burst xfer 
<PAR, ,M>,- ; Parity error during DATI/P 
<ACLO M>,- ; Power fail on this processor 
<MULTI; .M>,- ; Multi-cycle request error 
<ATIN, ,M>,= 3; ATTN = same as in CSR 
<NEX, ,M>,= 3; NEX = same as in CSR 
<ERROR, ,M>,- ; ERROR = same as in CSR 

> 
-BLKW 1 

XA_IDR : Input Data Buffer register 

XA_ODR oes , ; Output Data Buffer register 


SDEFEND XA . 3; End of DR11-W definitions 


— | 


a 
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-SBTTL Device Driver Tables 
; Driver prologue table 


DPTAB PT-creation macro 


D 
End of y thoy Label 


per _STORE UCB;UCB$B_DEVCLASS,B,DCS$ 
DPT-STORE UCB.UCB$B_DEVTYPE ,8,0T$_DR 
DPT “STORE E UCB -UCBSW DEVEUFSIZ.W,~ 
DPT _store REINT? 


DPT_STORE DDB,DDBSL DoT. D,XASDDT 
DPT =STORE che CRBSL~INTD+4,D,- 


A_INTERR Rupr! 

DPT _store CRB ERBSL INTD+VECSL_INITIAL,- 
D,XA_CONTROC_INIT 

DPT_STORE END 


REALTIM 3; Device class 
11W evice T 
Default p> size 


Start of reload 
initialization table 
Address of DDT 

Address of interrupt 

; service routine 
Address of controller 
initialization routine 
: End of initialization 
tables 


END=XA END,=- 3 
pone Tene A.- ; Adapter type 
FLAGS=DPT 3 Grave tee system page table 
UeBS ze -UCesk “SIZE, - : UCB 
NAME =X ; Driver name 
DPT_STORE INIT ; Start of load 
: ini falization table 
DPT_STORE UCB,UCBS$B_FIPL.B,8 : Device fork IPL 
DPT_STORE UCB,UCB$8_DIPL,B,2 ; Device interrupt IPL 
DPT~STORE UCB -UCBSL LIDEVCHAR,L,<= : Device characteristics 
DEVSM_A 3; Available 
DEVEMTAYR ; Real Time device 
DEVSM_ELG!- 3; Error Logging enabled 
oe ven-dnye* ; input device 
DEVSM_ODv> in output device 


Se Se te J Bete Ge Ge Ge 


; Driver dispatch table 


DDTAB - ; DDT-creation macro 
DEVNAM=XA,- Name of device 
START=XA_START Start 1/0 routine 
FUNCTB=XK “FUNCTABLE.~ FDT address 
CANCEL SKA psig Cancel 1/0 routine 
REGDMP=XA_REGDUM yp Met dump routine 
DIAG CBF =ceT £4>4<<$4541>#4>>,= agnostic buffer size 
ERLGBF =<<13#4>4<1#4>+<EMBSL_DV_ riceay Error log bufter stse 


: Function dispatch table 


XA_FUNCTABLE: : ta for driver 
FUNC 7 alid 1/0 functio 
<READPBLK ,READLBLK , READVBLK uni TEPBLK, WRITELBLK. WRI 
SE TMODE , SETCHAR, SENSEMODE , SENSE CHA 
; “No we reree fynct 
I 


FUNCTAB , 

FUNCTAB KA READ _WRITE e-specific 
<READPBLK, REABLBLE Py: ADVBLK.WRITEPBEK. URITELBLK.UR 

FUNCTAB SEXESREAD  <READPD kK, READLBLK, READVBLK> 


VBLK,- 


VBLK> 


- 
nn a 


Sete Ge Fe Se Ge Ge Se Ge 
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Re ,<WR TEPBLK WRITELBLK ,WRITEVBLK> 
hook cs eSENSE Obe. AR ENSECHARD 


Pe Se Se Ge Be Oe Se Se Be Be oe 


. . . * . . . 
+ 
~m = 
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~SBTTL KA_CONTROL_INIT, Controller initialization 


;++ 
; KA_CONTROL_INIT, Called when driver is loaded, system is booted, or 
; power failure recovery. 


Functional Description: 


1) Allocates the direct data path permanently 

¢ Assigns the controller data channel permanently 
) Clears the Control and Status Register 

4) If power recovery, requests device time-out 


= address of CSR 
RS = address of IDB 
R6 = address of DDB 
R8 = address of CRB 


Outputs: 


VECSV_PATHLOCK bit set in CRBSL_INTD+VEC$B_DATAPATH 
UCB address placed into IDB$L_OQNER 


XA_CONTROL_INIT: 


MOVL IDBSL_UCBLST(R5) ,RO ; Address of UCB 
MOVL RO, IDB$L_OWNER(R5) ; Make permanent controller owner 
BISW  #UCBSM_ONLINE ,UCB$W_STS(RO) c w 

; Set device status ‘‘on-Lline 


Pe Se Se ee Se Se Se Se Se Ge Oe Be Se Se Se Oe Be Be Se Oe Oe ee 
= 
a 


: If powerfail has occured and device was active, force device time-out. 
; The user can set his own time-out interval for each request. Time- 
; out is forced so a very long time-out period will be short circuited. 


BBS #UCBSV_POWER ,UCBSW_STS(RO) ,10$ 
owerfail 


; Branch if 
BISB #VECSM_PATHLOCK,CRBSL_INTD+VECSB_DATAPATH (RB) 
; Permanently allocate direct datapath 


BSBW MA_DEV_RESET ; Reset DR11W 
RSB 3; Done 


10$: 


SSS SSS SSS SSS SSS Ss 
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-SBTTL KA_READ_WRITE, FDT for device data transfers 


344 

; KMALREAD_WRITE, FDOT for READLBLK,READVBLK,READPBLK ,WRITELBLK,WRITEVBLK, 
; WRITEPBLK 

; Functional description: 

3 ) Rejects QUEVE 1/0's with odd transfer count 

; ) Rejects QUEVE 1/0's for BLOCK MODE request to UBA Direct Data 
: PATH on odd byte boundary 

3 ) Stores re yest eee count pees ttied J in P3 into IRP 

$ ) Stores FNCT bits specified in 

: ) Stores word to write into ODR from P at IRP 

s ) Checks block mode transfers for memory modify access 

: R3 = Address of IRP 

3 R4 = Address of PCB 

: R5 = Address of UCB 

: R6 = Address of CCB 

3 R8 = Address of FDT routine 

3 AP = Address of P1 

3 Pl = Buffer Address 

3 P2 = Buffer size in bytes 

3 P3 = Request time-out period (cone tional on IO$M_TIMED) 
3 P4 = Value for CSR FNCT bits (conditional on I1O$M_SETFNCT) 
3 P5 = Value for ODR (conditional on IO$M_SETFNCT) 

; P6 = Address of Diagnostic Buffer 

; Outputs: 

3 RO = Error status if odd transfer count 

3 IRP $L MEDIA = Time-out count for this reque 

; IRP$L_SEGVBN = FNCT bits for DR11-W CSR ond. Gor image 


KA_READ_WRITE : 
BLBC 


P2(AP ; Branch if transfer count even 
++ MOVZWL #SS$ Hicie RO ; Set error status code 
$: JMP G*EXE ABORT! ; Abort request 


10$: MOVZWL IRPSW_FUNC(R Fetch I/0 Function code 

MOVL 4 ag eee ne] A(R3) : + request specific time-out count 
BBS OSv_fIm ranch if time-out specified 
MOVL OKA _DEF Tre out. IRPSL neBIACRS) 

3; Else set default timeout value 
BBC #10$V_ pinenost is R1,20$ Branch if not maintenance reqeust 
EXTZV #IO$V~FCODE, #1085. FEODE J 1,R1 AND out all function modifiers 
CMPB #10$ VREADPBLKLR : If f mai ntenance function, must be 
3 > phys cal 1/0 read or write 


208 
CHB #108_URITEPBLK,RI 
MOVZWL #SS$_NOPRIV,RO ; No privilege for operation 


=< 
oad 


_ BeBe Sete ee BeBe Be ee 


~m 
oO 


30 
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BRB 5$ ; Abort request 
208: EXTZV #0,#3,P4(AP),RO ; Get valve for FNCT bits 

ASHL #XA_CSR$V_FNCT,RO,IRPSL_SEGVBN(R3) ; Shift into position for CSR 
MOV PS(AP) , IRPS$L_SEGVBN+2(R3) ; Store ODR value for later 


If this is a block mode transfer, check buffer for nod! ty access 
whether or not the function is read or write. The DR11-W does 
not decide whether to read or write, the users device does. 

For word mode requests, return to read check or write check. 


If this is a BLOCK MODE request and the UBA Direct Data Path is 
in use, check $e data buffer address for word alignment. If buffer 
is not word aligned, reject the request. 


BBS #10$V_WORD, IRP$W_FUNC(R3),30$ 
h_ if yord mode transfer 


: Branc 
BBS #XASV_DATAPATH, UCBSL_DEVDEPEND(RS) ,25 
; Branch if Buffered Data Path in use 
BLBS PI(AP) ,2$ ; DDP, branch on bad alignment 
5$: JMP G*EXESMODIFY ; Checke buffer for modify access 
O$: RSB ; Return 


Sete Se Se Se Sees Ge Se Se oe 
> 


XA 
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~SBTTL KA_SETMODE, Set Mode, Set characteristics FDT 


+ 
KA_SETMODE, FDOT routine to process SET MODE and SET CHARACTERISTICS 
Functional description: 

If IOSM_ATTNAST modifier is set, queue attention AST for device 


If 10$M- ere angerre? is set, queue packet. 
Else, finish I 


Inputs: 
R3 = 1/0 packet address 
R4 = PCB address 
RS = UCB address 
R6 = CCB address 
R7 = Function code 
AP = Q10 Paramater List address 


If IOSM_ATTNAST is specified, queue AST on UCB attention AST List. 
If IOSM_DATAPATH is specified, queue packet to driver. 
Else, uSe exec routine to update device characteristics 


‘ MOVZWL IRP$W_FUNC(R3) ,RO 3 Get entire function code 
BBC #10$V_ATTNAST, RO, 20$ ; Branch if not an ATTN AST 


3; Attention AST request 


PUSHR #*M<R4,R7> 
MOVAB UCBSL_XA AT reas) o R7 ; Address of ATTN AST control block List 


JSB G*COMSSETAT 3; Set up attention AST 
POPR cane atts 
BLBC ranch if error 


BISW FuCBSh. ATTNAST,UCBSW_ pevirs (ns) 
la + ATTN AST expected. 
BBC #UCBSV_UNEXPT ,UCBSW_ pevsts(Rs),10$ 
$ Deliver AST if unsolicited interrupt 


BSBW DEL_ATTNAST 
108: MOVZBL #SS$_NORMAL,RO ; Set statu 
JMP G*EXESF INISHIOC : Thats at for now (clears R1) 


: If modifier IOSM_DATAPATH is set 

+ queue packet. The data path is changed at driver level to preserve 

; order with other requests. 

20%: BBS S*#10$V_DATAPATH,RO,30$ ; If BDP modifier set, queue packet 
JMP G*EXESSETCHAR 


; This is a request to change data path useage, queue packet 


3; Set device characteristics 


Pao 
PrP 


. 
° 
. 
e 
. 
. 
. 
e 
+ 
td 
. 
. 
. 
o 
. 
. 
. 
2 
. 
. 
. 
. 
. 
e 
. 
e 
. 
° 
. 
. 
or 
. 
e 
a 
o 
. 
e 
. 
e 
. 
e 
. 
e 
. 
e 
. 
. 
. 
. 
. 
. 
. 
* 
. 
o 
. 
. 
. 
. 
. 
6 
. 
x 


+ 
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308: cnet 8 * pembbambaeel ; Set characteristics? 
oe 4 ; No, must have the priv \ege 
JM G*EXESSETMODE ; Queue packet to start 1/0 

; Error, abort 10 


$et: MOVZWL 6558 _NOPRIV.RO ; No priv for operation 
50$: CLRL R 
JMP G*EXESABORTIO ; Abort I0 on error 


30 


—_— 
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-SBTTL XA_START, Start 1/0 routines 
XA_START = Start a data transfer, set characteristics, enable ATTN AST. 
; Functional Description: 
This routine has two major functions: 


1) Start an 1/0 transfer. This transfer can be in either word 
or block mode. The FNCTN bits in the DRi1-W CSR are br I 
the transfer count is zero, the STATUS bits in the DRitew CSR 
are read and the request completed. 

2) Set Characteristics. If the function is change data path, the 
new data path flag is set in the UCB. 


Inputs: 


R3 = Address of the 1/0 request packet 
R5 = Address of the UCB 


Outputs: 


RO = final status and number of bytes transferred : 

R1 = value of CSR STATUS bits and value of input data buffer register 
Device errors are bogged 

Diagnostic buffer is filled 


-ENABL LSB 
XA_START: 
; Retrieve the address of the device CSR 


ASSUME IDBSL_CSR EQ 0 
MOVL UCBSL_CRB(RS) ,R4 ; Address of CRB 
MOVL  aCRBSC_INTD+VECSL_1DB(R45 ,R4 

3; Address of CSR 


Fetch the 1/0 function code 


MOVZWL IRPSW_FUNC(R3) ,R1 :; Get entire function code . 
MOVW R1,UCBSW_FUNC(RS) ; Save FUNC in UCB for Error Logging 
EXTZV #1OSV_FCODE,#10$S_FCODE,R1,R2 ; Extract function field 


Dispatch on function code. If this is SET CHARACTERISTICS, we will 
select a data path for future use. 

If this is a transfer function, it will either be processed in word 
or block mode. 


CMPB ss #@10$_SETCHAR,R2 
BNEQ 3 


3; Set characteristics? 


jet 
; SET CHARACTERISTICS = Process Set Characteristics Q10 function 


. 
* 
7 
° 
. 
a 
. 
° 
. 
e 
. 
. 
. 
os 
- 
. 
. 
oe 
- 
. 
. 
a 
. 
o 
. 
e 
. 
° 
. 
° 
. 
- 
. 
e 
. 
e 
. 
e 
. 
a 
. 
oa 
. 
o 
- 
° 


> 
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; INPUTS: 


XA_DATAPATH bit in Device Characteristics specifies which data path 
to use. If bit is a one, use buffered data path. If zero, use 
direct datapath. 


OUTPUTS: 


CRB is ND. Bets as to robe datapath to use. 
vices by so ee" ce characteristics is updated 
= 1 => buffered data path in use 
XA ~DATAPATH = 0 => direct data path in use 


MOVL UCBSL_CRB(RS),R Get CRB address 
MOVG  _—IRPSL SST ,UCB$B_DEVCLASS ( crs) set adgyice choractertetics 
BISB  #VECSM_PATHLOCK,CRBSL_INTD+VECSB_ DataPA (RO) 
. ssune "airees co cleee 
BBC #XASV_DATAPATH, UCBSL_DEVDEPEND(R5) wie Were 
BICB #VECSA _PATHLOCK, CRBSC_ INTD+VEC$B_ DATAPATH(RO) 3 Set cultered datapath 


2$: 
CLRL R1 3; Return Success 
MOVZWL #SSS$_NORMAL ,RO 
REQCOM 


: If subfunction modifier for device reset is set, do one here 


3$: BBC S*#10$V Bese « R1,4$ ; Branch if not device reset 
BSBw XA_DEV_RESE 3; Reset DR11-W 


; This must be a data transfer function - i.e. READ OR WRITE 
: Check to see if this is a zero length transfer 
; If so, only set (SR FNCT bits and return STATUS from CSR 


4$: TSTW UCBSW_BCNT (RS) : : transfer count zero? 
BNEQ 10$ 3; No, continue with data transfer 
ore eat S“#1O$SV_SETFNCT,R1,6$ ; Set CSR FNCT specified? 
VW IRPS$L_SEGVBN+2(R3) ,XA — 
Store word in ODR 
MOVZWL XA wii RO 
BICW #<RA_CSRSM_ 4th CSRSM_ERROR>,RO 
BISW TRPSE. SEGVBN( RO 
BISW #XA_CSRSM arn ROn ; Force ATTN on to prevent Lost interrupt 
MOVW RO, RA_CSRTR4) 
BBC axASv LINK ,UCBSL_DEVDEP en whe 5$ 5 3; Link mode? 
. BICW3 #XASKTFNCT2,RO,XA_CSR(R4 ; Make FNCT bit 2 a pulse 
6s ENBINT 
BSBW XA_REGISTER 3; Fetch DR11-W registers 
BLBS 7 3; If error, then log it 
JSB G*ERLSDEVICERR ; Log a device error 
7$: JSB G*1OCSDIAGBUF ILL ; Fill diagnostic buffer if specified 
UCB$W_XA_CSR(R5) ,R1 ; Return CSR and EIR in R1 


MOVL 
MOVZWL UCB$W~XA~ERROR(R5) ,RO Return status in R 


=< 
= 


a 


XA 


K 15 
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BISB #XA_CSRSM_IE,XA_CSR(R4) ; Enable device interrupts 
REQCOM ; Request done 
; Build CSR image in RO for Later use in starting transfers 
10$: 
MOVZWL UCBS$W_BCNT(R5),RO ; Fetch byte count 
DIVLS #2,RO,UCBSL_XA_ “DPR(RS) : Make byte count into word count 
: Set up UCBSW_CSRTMP used for loading CSR Later 


MOVZWL XA_CSR(R4),R 
BICW #CKKA cSren FNCT 


BISW CSRSM_IETXA “E3ASM ATTN, RO Set Interrupt Enable and ATIN 
BBC saTOSY asETENCT: Ri,2 Set ENCT bits in 

BICw CSRSM_FNCT mo 3 Yes, Clear previous FNCT bits 

BISB TReSC” SEGVBNCRS) R OR in new value 


208: BBC S*#10$V biAgnost it Ri, a3$ Check ter ep ge function 
BISW AXA. CSRSM MAINT ; Set maintenance bit in 


; Is this a word mode or block mode request? 
23%: pve RO 108 XA_CSRTMP(RS) “x CSR image in UCB 


nH logy GORD. R1,BLOCK “MObE eck if word or block mode 
BRW WORD _ : ol one to handle word mode 


6 


> 


15 
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546 
; BLOCK MODE == Process a Block Mode (DMA) transfer request 
: FUNCTIONAL DESCRIPTION: 


: This routine takes the buffer weoreree byt ter size, fucntion code 

; and function modifier fields from the IRP. It calculates the UNIBUS 
; address, allocates the UBA map registers, Loads the DRil-W device 

: registers and starts the request. 


; Set up UBA 


; Start Perenster 

BLOCK _MODE : 

; If IOSM_CYCLE subfunction is specified, set CYCLE bit in CSR image 
BBC #10$V_CYCLE,R1,25$ Set CYC F bit in CSR? 


BISW #XA_CSRSM_CYCLEUCBSW_XA, CRTMPCRS) ; If yes, or into CSR image 
; Allocate UBA data path and map registers 


25$: 
REQDPR ; Request UBA data path 
REQMPR : Request UBA map registers 
LOADUBA ; Load UBA map reqisters 


; Calculate the UNIBUS transfer address for the DR11-W from the UBA 
; map register address and byte offset. 


MOVZWL UCBSW_BOFF (RS) ,R1 ¢ Gyte offset in first page of xfer 
MOVL UCBS$L_CRB(R5S) R2 ddress of CRB 

INSV CRBSL ~inTDevetsa  apeanelat” #9,89,R 

3 Insert page number 


EXTZV a6. #2,R1,R2 3; Extract bits 17: 16 of bus address 
ASHL teks’ _XBA,R2,R2 3 Shift extended memeroy bits for CSR 
BISW aA atts GO,R2 : Set ‘'60"" bit into CSR image 


B1SW 2,0CB$W RA CSRIMP(RS) : Set into CSR mage 
B1Cw3 Geka CSRSM_GO! XA_ CSRSM. cicte>, UCBSW. XA_ cs MP(R 
CSR image less ‘'GO"’ a 
BICW3 #XASK_FNCT2,UCB$W_XA csRtMP(RS) R2 ; CSR image less FNCT bit 2 
MOVW R1,UCB$W_XA_BARTMP(RS) ; Save BAR for error Logging 


3; At this juncture 
3 RO = CSR toe ’ less ‘'GO"’ and ‘‘CYCLE"’ 
3 -f! = low 16 bits of pronerer ye address 


we score building 


ee C oe 


= CSR spage less FNCT 
Geese _XA_DPR(RS) = transfer count in words 
UCBSW_XA_CSRTMP(RS5) = CSR image to start transfer with 


3; Set DRI1l-W registers and start transfer 

3; Note that rea Books om wth | cycles are NOT spor torace to the DR1ii-wW CSR. 

; The CSR is always written Sirogtiy into, is prevents inadvertently setting 
; the EIR select flag (writing bit 15) if error happens to become true. 


DSBINT 3; Disable interrupts (powerfail) 


+ 


Pas 
> 


M15 
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MNEGW UCBSL_XA_DPR(R5) ,XA -WCR(R4) 

: Load negative of transfer — 
MOVW R1,XA eatery : pond Low 16 bits of bus addres | 
MOVW RO. XA~CSR( a3) S38 - A less *o" and “Fe ycLe 
BBC #XASVILINK PUCBSL _DEVDEPEND(R ),26$ ; Link mode? 
Rg KA"CSR(R4) ; load CR image less “FNCT’ bit 2 
126$ 3; Only if (fat mode in dev characteristics 


MOVW UCBSW_XA_CSRTMP(R5),XA_CSR(R4) ; Move all bits to CSR 
; Wait for transfer complete interrupt, powerfail, or device time-out 
126$: 


+e 


268: 


WFIKPCH XA_TIME_OUT,IRPSL_MEDIA(R3) ; Wait for interrupt 
; Device has interrupted, FORK 
IOF ORK ; FORK to lower IPL 


Bete Se Se Se Se Oe Se Se Se ee ee SH Se BH oe 
i 


XA 


| 
; Handle request completion, release UBA resources, check for errors 
oe #SS$_NORMAL ,-(SP) Assume success, store code on stack 
CLRW UCBS$Q_XA_DPRN(R5) Clear DPR number and DPR error flag 
PURDPR Purge UBA buffered data path 
BLBS Branch if no datapath error 
MOVZWL rity PARITY, (SP) Flag 9 Ban ey error on device 
N DR error for log 
| 
| 


5) 
278: MOVL R1,UCBSL-XA_DPR(R5S) aa data path register in UCB 
EXTZV avecsy DATAPATH = 3 os ——— register no. 


Ecror Lo 
CRBSL INTDeVECSE epee RO ° 


MOVB RO,UCBSW_XA_DPRN Save for Later in UCB 
EXTZV Ag »UCBSW_XA_BAR ( RO ; ; Low 7 ts, final — register no. 
EXTZV #4 He UC “UCB Su" XA_ BOR (RS). RI Hi bits of map register no. 
INSV hatire map register number 
CMPW RO, BG 466.” 3 ° map B ropteter number in range? 
BGTR 28 orget it - compound error 
MOVL  (R2)CROJ,UCBSL_XA_ FMPR(REDS ; ‘son map register contents 
CLAL UCBSL_XA_PMPR(R5)~ : Assune no previous map register 
DECL R : Was there a previous map register? 
CMPV #VECSV_MAPREG, #VECSS MAPREG. 
add cRSL_ INTD+VECSW -MAPREG(R ». “RO 
MOVL (R2)CROJ,UCBSL_XA_ FMPR(RE)™ 3 Save! previous map register contents 
288: RELMPR ; Release UBA resources 
RELDPR 
| 
; Check for errors and return status | 
TSTW ie XA_WCR(RS5) ALL words transferred? 
BEQL nee 
MOVZWL © OP INCOM fi age goeratton not complete 
30$: BBC aRA TSR$V_ERROR sicesy XA, cSRiad) 5$ ; Branch on CSR error bit 
ROVZUL UCB Sul XA ERROR (RS) (SP) lag for controller/drive error status 


BSB ; Rees DR1I1-W | 
35$: BLBS (SP) ,40$ 3 Any errors after all this? 


4 N 
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JSB SECALSDEVICERR ; Yes, log them 
40S: BSBU DEL ATINAST ; Delivers surge tt ATTN AST's 
JS rica AGBUF ILL ; Fill diagnost 


Get fina device s statu 
Calculate final transfer count 


Insert into high byte ef 10SB 
Return CSR and EIR in 10SB8 
Enable interrupts 

Finish request in exec 


settee XA WER(RS), R1 
ATCRS) 
#16 re 
iad KA_CSR(RS 
_CSRSA ER. eh cre) 


KZLOMWMMIOODZ SS KOK TO WMICOS Sl KOK ITO *MOOCWZ Sl ACH TO MMOOOOS SF ACH TO MMIOOW 


16 
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: -DSABL LSB 
WORD MODE == Process word mode (interrupt per word) transfer 
FUNCTIONAL DESCRIPTION: 


Data is transferred one word at a time with an interrupt for each word. 
The request is handled separately for a write (from memory to DR11-W 
and a read (from DR11-W to memory). 

For a write, data is fetched from memory, loaded into the ODR of the 
DR1i1-W and the fetes waits for an interrupt. For a read, the system 
waits for a DRil-W interrupt and the IDR is transferred into memory. 

If the unsolicited interrupt flag is set, the first word is transferred 
directly into memory withou waiting for an interrupt. 


Bee Oe Oe Oe Oe Oe Oe BH Oe Oe es Oe oe 
H + 


-ENABL LSB 

WORD_MODE : 

; Dispatch to separate loops on READ or WRITE 
CMPB #10$_READPBLK ,R2 ; Check for read function 
BEQL 30$ 

++ 

WORD MODE WRITE -- Write (output) in word mode 

FUNCTIONAL DESCRIPTION: 


Transfer the requested number of words from user sary to 
the DR11-W ODR one word at a time, wait for interrupt for each 


word. 
10$: 

BSBW MOVFRUSER ; Get two oytes from user buffer 

DSBINT 3; Lock out interrupts 

; Flag interrupt expected 

MOVW R1,XA_ODR(R4) ; Move data to DR1I1- 

MOVW  UCBSW7XA_CSRTMP(RS),.XA_CSR(R4) ; Set DRI1-W CSR 

BBC #XASV~LIRK ,UCBSL_DEVDEPEND(RS),15$ ; Link mode? 

BICW3 #XASKTFNCT2,UCBSQ_XA_CSRTMP(R5S XA FSRCR4) ; Clear interrupt FNCT bit 2 
ios : Only if Tink mode specified 


; Wait for interrupt, powerfail, or device time-out 

WFIKPCH XA_TIME_OUTW, IRP$L_MEDIA(R3) 
; Check for errors, decrement transfer count, and loop til complete 
; Fork to lower IPL 


1OF ORK 
BITW  #XA_EIRSM_NEX!- 
XA_EIRSM_AULTI!- 
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! 

. UCBSW_XA_EIR(RS) ; a errors? 
BEQL 208 3 No, continue 
BRW 40$ 3; Yes, abort transfer. 

208: DECW Yi BSL AA_DPRCRS) ; ALL words trnasferred? 
BNEQ $ 3; No, loop until finished. 


; Transfer is done, clear Ag age expected flag and FORK 
; ALL words read or written in WORD MODE. Finish 1/0. 


RETURN_STATUS: 


JSB G*10C$DIAGBUF ILL 
SBW = DEL_ATTNAST 
#SSS_NORMAL ,RO 

228: MULW3 #2, UTBS$L_XA_DPR(R5) ,R1 

SUBW3 «=—- R11, UCBS$WBCAT(RS) RI 

R1,#16,476,R 
MOVL UCBS$W_XA_CSR(RS),R1 
#XA_CSRSA_IE,XA_CSR(R4) 


Fill diagnostic buffer if pryeent 
Deliver teed ATIN AST's 
Complete success status 

Calculate actual a bey x fered 
From requested number of bytes 
And place in aig word of RO 
Return CSR and EIR status 

Enable device interrupts 

Finish request in exec 


»+¢ 
WORD MODE READ <= Read (input) in word mode 
; FUNCTIONAL DESCRIPTION: 


3 Transfer the requested number of wrods from the DR11-W IDR into 

; user memory one word at a time, wait for interrupt for each word. 
3 If the unexpected (unsolicited) interrupt bit is set, transfer the 
; patee —— received) word to memory without waiting for an , 

: nterrupt. 


30$: 
DSBINT UCBS$B_DIPL(RS5) ; Lock out interrupts 


: If an unexpected (unsolicited) els has occured, assume it 
:; is for this READ request and return value to user buffer without 
; waiting for an interrupt. 
BBCC #UCBSV_UNEXPT,- 
UCB$W_BEVSTS(R5) , 328 3; Branch if no unexpected interrupt 
ENBINT ; Enable interrupts 
BRB 37$ 3 continue 
32$: 
35$: 
; Wait for interrupt, powerfail, or device time-out 
WFIKPCH XA_TIME_OUTW, IRP$L_MEDIA(R3) 


; Check for errors, decrement transfer count and loop until done 


SETIPL #IPL$_POWER 
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10F ORK ; Fork to lower IPL 


BITwW axa EIRSM_NEX!- 
A_EIRSM_AULTI!- 
A_EIRSM_ =ACLO!= 


378: 


XA “EIRSM_PA 
XA-EIRSM_DLT, "UCBSW. MALEIR(RS) ; Any errors? 
BNEQ 408 ; Yes, abort transfer 
BSBwW MOVTOUSER ; Store two bytes into user buffer 
; Send interrupt back to sender. Acknowledge we got last word. 


DSBINT 


MOV srt te XA_CSRTMP(RS) ,XA_CSR(R4) 
BBC V-LIAK ,UCBS$L BEVDEPEND (RS) 38$ ; Link mode? 
388 8icw3 oRASK “FNCT2,UCBSO_ HA _CSRTMP(R5SS ,XA _iskiRay” : Yes, clear FNCT 2 
: DECW YES AA pPRERS) Decrement transfer count 
pee 5$ 3; Loop until all words transferred 
BRW RETURN_STATUS ; Finish request in common code 


3; Error detected in word mode transfer 


40$: 

; Deliver ATTN AST's 

; Error, reset DR11-W 

; Fill diagnostic buffer if presetn 
; Log device error 

; Set controller/drive status in RO 


BSBW DEL_ATTNAST 
Bev T 


qj 
wn” 
ow 
> 
oe 
oO 
bad 
a 
Me wD 
mame 
om 
c. 
> = eal 
ol 
cag 
aa 
Sete Ge eee 


JS CERR 
MOVZWL UCBSW_XA_ERROR(R5) ,RO 
BRW 22 


-DSABL LSB 
MOVFRUSER = Routine to fetch two bytes from user buffer. 
INPUTS: 

R5 = UCB address 
OUTPUTS: 


R1 = Two bytes of data from users buffer 
Buffer descriptor in UCB is updated. 


ABL LSB 
te RY : Address of temporary stack loc 
: Fetch two bytes 
6* [Oc snoveRUsER ; Call exec four ee to do the deed 
MOVL (SP)+,R1 ; Retreive the b | hey 
BRB 20$ ; Update UCB buffer pointers 


: MOVTOUSER = Routine to store two bytes into users buffer. 
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INPUTS: 


R5 = UCB address 
UCBSW. KA_ IDR(R ) = Location where two bytes are saved 


OUTPUTS: 


Two bytes are stored in user buffer and buffer descriptor in 
UCB is updated. 


MOVTOUSER: 
MOVAB 


"] U BS XA_IDR(RS),R1 ; Address of internal buffer 
MOVZBL 
JSB 6° {OCSMOVTOUSER : Calle 
208: : Update buffer pointers in UCB 
ADDW #2, UCBSW_BOFF (R5) Add two to buffer descriptor 
BICW = #*°C<*XO1FF>, UCBSW. noFF(RS) Modulo the page size 
BNEQ 30$ > 14 NEQ, no page boundary crossed 
308 ADDL #4 ,UCBSL_SVAPTE(R5) ; Point to next page 
RSB 


LSB 


F 1 
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-SBTTL DR11-W DEVICE TIME-OUT 


+ 

DR11i-W device TIME-OUT 

If a DMA transfer was in progress, release UBA resources, 

For DMA or WORD mode, deliver ATTN AST's, log a device timeout error, 
; and do a hard reset on the controller. 


Clear DR11-<W CSR 
Return error status 


Power failure will appear as a device time-out 


Sete Se Ge Oe Se ee ee Se Se ee 


-ENABL LSB 

XA_TIME_OUT: ; Time-out for DMA transfer 
SETIPL UCBSB_FIPL(RS) ; Lower to FORK IPL 
PURDPR ; Purge buffered data path in UBA 
RELMPR ; Release UBA map registers 
RELDPR ; Release UBA data path 

B 10$ 3; continue 

XA_TIME_OUTW: ; Time-out for WORD mode transfer 
SETIPL UCBSB_F dish ae ; Lower to FORK IPL 

10$: UCB$L_CRB(R5) Fetch address of CSR 

acRBsC CONTDOVECSL _1DB (R45 ,RG 


XA_REGISTER : Read DR11-W registers 
G*TOCSDIAGBUF ILL ; a diagnostic buffer 
G*ERLSDEVICTMO : device time out 

3 deliver the AST's 
s Stes controller 


XA_BEV_RESET 
ress: TIREOUT . RO ; Assume error status 


#UCBSV_CANCEL,- 

UCB$SW_STS(R5) ,20$ 3; Branch if not cancel 

#sss_ TANCEL RO : Set status 

UCBS$W_DEVSTS(R5) r ATTN AST fla 

#<UCBSM TIM! UCBSM_ IntiuchsA TIMOUT !UCBSM CAN EL!UCBSM_ POWER>,=- 
UCB$W_STS(R5) ; CTear unit status flags 


: vate 1/0 in exec 
LSB 


1 
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aa -SBTTL KA_INTERRUPT, Interrupt service routine for DR11-W 
XA_LINTERRUPT, Handles interrupts generated by DR11-W 
Functional description: 


This routine is entered whenever an interrupt is generated 

by the DRil-W. It checks that an interrupt was expected. 

If not, it sets the unexpected (unsolicited) interrupt flag. 

ALL device registers are read and stored into the UCB. 

If an interrupt was expected, it calls the driver back at its Wait 
For Interrupt pe nt. 

Deliver ATTN AST's if unexpected interrupt. 


Inputs: 


Pointer to address of the device IDB 
saved RO 

saved R1 

saved R 

saved R 

saved R4 

saved R5 

saved PSL 

saved PC 


Wrnrn——c0oo0 
NMOLOSV@OLO 
tt ttt 
ONnnnvnnnonom 
vuvuvuvvUUvUUU 
wwwrwervervevuvw 


Outputs: 


The driver is called at its Wait For Interrupt point if an 
interrupt was expected. 
The current value of the DR11-W CSR's are stored in the UCB. 


i 


A_INTERRUPT: 3 Interrupt service for DR11-W 
MOVL a(SP)+,R4 ; Address of IDB and pop SP 
MOVO = (R4) RA ; CSR and UCB address from IDB 
; Read the DR11-W device registers (WCR, BAR, CSR, EIR, IDR) and store 
; into UCB. 
BSBW KA_REGISTER ; Read device registers 


; Check to see if device transfer request active or not 
; If so, call driver back at Wait for Interrupt point and 
; Clear unexpected interrupt flag. 


208: BBCC #UCBSV_INT,UCBSW_STS(R5) ,25$ 
3; If clear, no interrupt expected 


: pntorrupt expected, clear unexpected interrupt flag and call driver 
olCw #UCBSM_UNEXPT ,UCBSW_DEVSTS(R5) 
; Clear unexpected interrupt flag 


MOVL UCBSL_FR3(R5) ,R3 3; Restore drivers R3 
JSB aUCBSC_FPC(RSS : Call driver back 
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BRB 308 


; Deliver ATIN AST's if no interrupt expected and set unexpected 
; interrupt flag. 


258: 
BisM gycese UNE XPT .UCBSW_DEVSTS (RG) ; Se unexpected interrupt flag 
BW DEL_ATTNAST ; Deliver ATTN AS $ 
B1SB #XA_CSRSM_IE,XA_CSR(R4) ; Enable device interrupts 
; Restore registers and return from interrupt 


30$: 
POPR #*M<RO,R1,R2,R3,R4,R5> ; Restore registers 
RE] 3; Return from interrupt 
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R p 
55$: BICW #*C<RA_CSRSM_FNCT> 


60$:  MOVW  XA_I IBR(RED uCBSW_ XA ID 


16 
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- PAGE 
-SBTTL KA_REGISTER = Handle DR11-W CSR transfers 


+4 
; MALREGISTER = Routine to handle DR11-W register transfers 
; INPUTS: 


RG = DR1il-W CSR address 
RS - UCB address of unit 


; OUTPUTS: 


Sal EIR, WCR, BAR, IDR, and status are read and stored into UCB. 
he DRi1-W is placed in its initial state with interrupts enabled. 
RO - .true. if no hard error 
-false. if hard error (cannot clear ATTN) 


; If the CSR ERROR bit is set and the associated condition can be bt TM 


the error is transient and recoverable. The status returned is SS$_DRV 


; If the CSR ERROR bit is set and cannot be cleared by clearing the CSR, then 


this is a ae error and cannot be recovered. The returned status is 


; SSS_CTRLERR 


RO,R1 = destroyed, all other registers preserved. 


XA_REGISTER: 


MOVZWL #SS$ NORMAL , RO 

MOVZWL XA_CSR(R 

MOVW RI -(esu xk CSR(RS) 
BBC #xXA_CSRSV_ERROR,R1,55$ 


Assume success 

Rea R 

Save CSR in UCB 

Branch if no ght 

Assume ‘‘drive'’ er 

; Clear all uninterest ing bits for later 
Ee pre aere t EIR flag 

MOVW = KA -ETR(RG) UCBSW_XA_ EIR CRS : Save bra°} in UCB 

MOV R1,XA_CSR(R4) ; Clear EIR Lbs and errors 

MOVW XA COR, R4),R1 ; Read CSR back 

BBC ak CoRSY iT tn R1,60$ t cetant tan still set, hard error 

MOVZWL reset RR,R ag hard controller error 

Save IDR in UCB 


MOVW XA_BAR(R4) -UCBSW~X A 
MOV XA_WCR(RG) -UCBSW- XA we 
RO; UCBSW_ XA_ ERROR(R5) 


DDD 
on 

Se x mee eee 
wn 


ave status in UCB 


XADRIVER .MAR; 1 16-SEP-1984 17:06:40.98 Page 27 


é -SBTTL XKA_CANCEL, Cancel 1/0 routine 
; KA_CANCEL, Cancels an 1/0 operation in progress 
; Functional description: 


Flushes Attention AST queue for the use 

If at saan in progress, do a device reset to DR1i1-W and finish the 
req 

tear latoreupt expected flag. 


eo 
eo 
© 
° 
° 
° 
e 
° 
2 
. 
° 
e 
° 
° 
° 
o 
6 
a 
° 
a 
. 


; Inputs: 
R2 = negated value of channel index 
R3 = address of current IRP 
R4 = address of the PCB requesting the cancel 
RS = address of the device's UCB 
; Outputs: 
KA_CANCEL: ; Cancel 1/0 


BBCC #UCBS$V_ATTNAST 
UCBSW_ BevsTs(r$),20$ | ; ATTN AST enabled? 


; Finish all ATTN AST's for this process. 
PUSHR #*M<R2,R6,R7> 
MOVL ; Set up channel — 
MOVAB UCBSL_XA col R7 3; Address of Listh 
JSB CS CONS? LOSH 3; Flush ATTN AST's "Tes process 
POPR #*M<R2,R6, wert 


; Check to see if a data transfer request is in progress 
; for this process on this channel 


208: 


+ Seid ee DIPL(RS) 3; Lock out device interrupts 
OCSCANCELIO ; Check if transfer going 
gee pucesV CANCEL,=- 
UCBSW_STS(R5) ,30$ ; Branch if not for this guy 


; Force timeout 


CLRL UCBSL_DUETIM(RS) ; clear timer 
BISW #UCBSA_T TIM, UCBSW_ STS(RS)- 3 set timed 
BICw  #UCBSM~ TAmOUT., = 

uCBSW_STS(R5) ; Clear timed out 


ENBINT 3; Lower to FORK IPL 
RSB eturn 


30$: 


BEL_ATTNAST 


10$: MOVL 


K 1 
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- PAGE 
ve -SBTTL DEL_ATTNAST, Deliver ATTN AST's 
DEL_ATTNAST, Deliver all outstanding ATIN AST's 


; Functional description: 


This routine is used 7 the DR11i-W driver to deliver all of th 
outstanding attention AST's. It is copied from COMSDELATTNAST i 
the exec. In addition, it places the saved value of the DR11- 
and Input Data Buffer Register in the AST paramater. 


Inputs: 
RS = UCB of DR11-W unit 


; Outputs: 


RO,.R1,R2 Destroyed 
R3,R4,R5 Preserved 


DSBINT UCB$B_DIPL(R5) ; Device IPL 
CC  #UCBSU_ATTNAST,UCBSW_DEVSTS(R5) ,30$ 
; Any ATIN AST's expected? 
PUSHR #*M<R3,R4,R5> 3; Save R3,R4,R5 
8(SP), ; Get address of UCB 
MOVAB UCBSL_XA_ATTN(R1) ,R2 ; Address of ATTN AST Listhead 
(R2),R5 ; Address of next entry on List 
; No next entry, end of loop 
BICW #UCBSM UNEXPT ,UCBSW_DEVSTS(R1) 3; Clear unexpected interrupt flag 
MOVL (R5) , (R2) ; Close l 
MOVW UCBSW_XA_IDR(R1) ,ACBSL_KAST+6(R5) 
; Store IDR in AST paramater 
MOVW UCB$W_XA_CSR(R1) ,ACBSL_KAST+4(R5) 
: Store CSR in AST paramater 
PUSHAB 8*10$ ; Set return address for FORK 
FORK ; FORK for this AST 


; AST fork procedure 


MOVG ACBSL_KAST(R5) ,ACBSL_AST(R5) 


; Re-arrange entries 
MOVB ACBSL_KAST+8(R5) ,ACB$B_RMOD(R5) 
MOVL  ACBSL“KAST+12(R55 ,ACBSC_PID(RS5) 
CLRL_ ACBSL-KAST(R5) 
MOVZBL #PRI$_IOCOM,R2 ; Set up priority increment 
JMP G*SCHSQAST ; Queue the AST 
O$: POPR #*M<R3,R4,R5> ; Restore registers 


0$: ENBINT 3; Enable interrupts 
RSB ; Return 
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; XA_REGDUMP = DR11-W Register dump routine. 


; This routine is called to save the controller registers in a specified 
; buffer. It is called from the device error logging routine and from the 
; diagnostic buffer fill routine. 


; Inputs: 


RO - Address of register save buffer 
R4 = Address of Control and Status Register 
RS - Address of UCB 


; Outputs: 
The controller registers are saved in the specified buffer. 


: CSRTMP - hig ge poe written to the DR11-W CSR by 
3 e driver. 

: BARTMP - The last value written into the DR11-W BAR by 
; the driver during a block mode transfer. 

; CSR = The CSR image at the Last interrupt 

3 EIR = The EIR image at the last interrupt 

; IDR = The IDR image at the last interrupt 

: BAR = The BAR image at the Last interrupt 

; WCR = Word count register : 

; ERROR - The system status at request completion 

; PDRN -_UBA Datapath Register number : 

; DPR = The contents of the UBA Data Path register 

FMPR = The contents of the last UBA Map register 

3 PMRP = The contents of the previous UBA Map register 

: DPRF - Flag for purge datapath error 

; 0 = no purger datapath error 

3 1 = parity error when datapath was purged 


Note that the values stored are from the (ast completed evane tr 
e 


operation. If a zero transfer count is specified, then t 
values are from the Last operation with a non-zero transfer count. 


MOVZBL #11,(RO) ; Eleven registers are stored. 


& ; Return 8 registers here 
10$:  MOVZWL (RI)+,(RO)+ 


MOVZBL U BSil_xA_DPRN(RS) , (RO)* 
20$: MOVL  (R1)+,(ROD+ 
oy eet. UCB$W_XA_DPRN+1(R5), (RO) + ; Save Datapath Parity Error Flag 


: Move them all 

; Save Datapath Register number 
3; And 3 more here 

3; Move UBA register contents 
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0)+ 3 
MOVAB UCB$W_XA_CSRTMP(RS) ,R1 ; Get address of saved register images 
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KA_DEV_RESET = DR11-W Device reset routine 


This routine raises IPL to device IPL, performs a device reset to 
the required controler, and re-enables device interrupts. 


Inputs: 


R4 = Address of Control and Status Register 


RS - Address of UCB 
Outputs: 
Controller is reset, controller interrupts are enabled 


oo 
@ 
. 
° 
7 
. 
. 
° 
a 
° 
o 
° 
. 
o 
. 
° 
. 
eo 
. 
° 
° 
7 
eo 
. 
° 
° 
7 
° 


XA_DEV_RESET: 
PUSHR #*M<RO,R1,R2> ; Save some registers 
DSBINT ; Raise IPL to lock all interrupts 
MOVB #<XA_CSRSM_MAINT/256>,XA_CSR+1(R4) 
CLRB XA_CSR+1(RZ) 

; *t* Must delay here depending on reset interval 
TIMEDWAIT TIME=#XA_RESET_DELAY ; No. of 10 micro-sec intervals to wait 


MOVB #XA_CSRSM_IE,XA_CSR(R4) ; Re-enable device interrupts 


ENBINT ; Restore IPL 
POPR #*M<RO,R1,R2> ; Restore registers 
RSB 
XA_END: ; End of driver label 


- END 
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